#!/usr/bin/perl

# to tinker w/russian words, nicknames presumably
# expects single russian word, w/o spaces, that is

use strict;
use warnings;
use utf8;
use open qw(:utf8);

binmode(STDIN,':utf8');
binmode(STDOUT,':utf8');

my @alph = split('', "абвгдеёжзийклмнопрстуфхцчшщъыьэюя");

my $input = lc <>;
chomp $input;

my @ina = split('', $input);

for (my $j = 1; $j < scalar @alph; $j++) {
	foreach my $ain (@ina) {
		for (my $i = 0; $i < scalar @alph; $i++) {
			if (ord ($alph[$i]) == ord ($ain)) {
				print $alph[($i + $j) % scalar @alph];
			}
		}
	}
	print "\n";
}
